home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1998 January / Macworld (1998-01).dmg / QuarkXPress Passport / QXP Passport™ Pre-release PPC / QuarkXPress Passport™ 4.0 Demo / QuarkXPress Passport™ 4.0 Demo.rsrc / PSHD_1013 < prev    next >
Encoding:
Text File  |  1997-08-25  |  1.1 KB  |  23 lines
  1. /strtp{dup length dup -8 bitshift ct2 ctz 3 -1 roll put 255 and
  2.  ct2 ctz 1 add 3 -1 roll put ct2 copy pop setclp}B
  3. /endp{ct2 ctz ct0 putinterval setclp}B
  4. /kp{ct1 0 2 index length 2 index 99 2 index put getinterval copy cvx exec
  5.  mtx1 currentmatrix pop cps np mif}B
  6. /ptc{cmykprsnt{currentcmykcolor 4}{currentrgbcolor 3}ifelse
  7.  -1 1{exch 255 mul cvi bkc 3 1 roll put}for}B
  8. /gtc{1 1 cmykprsnt{4}{3}ifelse{bkc exch get 255. div}for
  9.  cmykprsnt{setcmykcolor}{R}ifelse}B
  10. /crntc{regsh 0 lt custprsnt not and
  11.  {cmykprsnt{currentcmykcolor}{currentgray}ifelse}if
  12.  custar aload pop pop custsh custprsnt regsh
  13.  }def
  14. /setc{/regsh X/custprsnt X/custsh X custnamstr 0 1 index 79 get getinterval custar astore pop
  15.  regsh 0 ge{regsh setseparationgray}{custprsnt{custar custsh setcustomcolor}
  16.  {cmykprsnt{setcmykcolor}{H}ifelse}ifelse}ifelse
  17.  }def
  18. /shp{dup 1 gt/@1 X vrbar exch get currentflat{@1{g}if{1 index exec}stopped @1{G}if
  19.  {currentflat cvi 1 bitshift dup 200 gt{pop exit}{setflat}ifelse}{@1{np}if exit}ifelse}loop
  20.  setflat pop}B
  21. /h{currentpoint exch pop m}B
  22. /crs{g o np m l n np m l n G}B
  23.